00100	 begin label fresh, loop;
00150	label xit;
00200	 string s,b;
00300	 real accum;
00400	fresh: accum←0.0; b←0;
00500	loop:outchr("+");
00600	s←inchwl;
00700	if s=0 then begin
00800	outstr("= "&cvg(accum)&'15&'12&7);
00900	go to fresh;
01000	end else if s="e" then go to xit
01100	else if s = "s" then outstr("subtotal "&cvg(accum)&'15&'12)
01200	else begin s←s&b;
01300	accum←accum+realscan(s,b)end;
01400	go to loop;
01500	xit:end